myvar_1 = GetPrimitiveParameter(0)
	if (GlobalObjManager["verifyObjectId"](GlobalObjManager, myvar_1) == True) then
		if (GetObjectData(myvar_1, ObjData["category"]) ~= 22) then
		SetScriptReturnValue(False)
	else
		local myvar_3 = False
		SetScriptReturnValue(myvar_3)
	end
end
myvar_3 = GlobalObjManager

myvar_2 = GlobalObjManager["getObjectIds"](myvar_3, GlobalObjManager["kQuery_ForPartsofMultiTileObject"], myvar_1)
myvar_3, GlobalObjManager["kQuery_ForPartsofMultiTileObject"] = nil
for loopvar1, loopvar2 in ipairs(myvar_2) do 
	if (GlobalObjManager["verifyObjectId"](GlobalObjManager, loopvar2) == True) then
		if (0 < GetObjectData(loopvar2, ObjData["room"])) then
		myvar_3 = loopvar2
	else
		SetScriptReturnValue(False)
	end
end
end
	if (myvar_3 ~= nil) then
		if (GetObjectData(loopvar2, ObjData["room"]) == nil) then
	else
		SetScriptReturnValue(False)
		return 
	end
end
myvar_5 = GlobalObjManager["getObjectIds"](GlobalObjManager, GlobalObjManager["kQuery_ByObjectDataField"], ObjData["room"], GetObjectData(loopvar2, ObjData["room"]))
for loopvar1, loopvar2 in ipairs(myvar_5) do 
	if (GlobalObjManager["verifyObjectId"](GlobalObjManager, loopvar2) == True) then
		if (GetObjectData(loopvar2, ObjData["For Sale Flags"]) == 1) then
			if (GlobalObjManager["getDistanceBetweenObjects"](GlobalObjManager, loopvar2, myvar_3) <= 3) then
			table["insert"]({}, loopvar2)
		else
			local myvar_12 = False
			SetScriptReturnValue(myvar_12)
		end
	end
end
end
myvar_7 = table["getn"]({})
	if (0 < myvar_7) then
	local myvar_10 = 0
	SetTemp(myvar_10, {}[math["random"](myvar_7)])
else
	local myvar_9 = False
	SetScriptReturnValue(myvar_9)
end
